home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 1
/
Gold Medal Software Volume 1 (Gold Medal) (1994).iso
/
autocad
/
dt100.arj
/
DT_INIT.LSP
< prev
next >
Wrap
Lisp/Scheme
|
1993-09-25
|
1KB
|
59 lines
; DrafTools [Version 1.00] 9/25/93
;
; ***************************************
; **** Author: Owen Wengerd ****
; **** ****
; **** Manu-Soft Computer Services ****
; **** P.O. Box 84 ****
; **** Fredericksburg, OH 44627 ****
; **** (216) 695-5903 ****
; **** Compu-Serve ID: 71324,3252 ****
; ***************************************
; ============================
; == Set Global Variables ==
; ============================
(setq *DT_PATH "c:\\acad\\draftool\\")
; ================================
; == Define Startup Functions ==
; ================================
(defun dt_load (filename / path)
(if
(not
(and
*DT_PATH
(setq path
(findfile
(strcat
*DT_PATH
(if (= "\\" (substr *DT_PATH (strlen *DT_PATH) 1)) "" "\\")
filename
".LSP"
)
)
)
)
)
(setq path (findfile (strcat filename ".LSP")))
)
(if path
(load path)
(alert (strcat " Cannot load " filename ".LSP! "))
)
)
(defun C:EDTITLE () (dt_load "EDTITLE") (C:EDTITLE))
(defun C:INSTITLE () (dt_load "INSTITLE") (C:INSTITLE))
(defun C:MAKEBDR () (dt_load "MAKEBDR") (C:MAKEBDR))
(defun C:RE-ORDER () (dt_load "RE-ORDER") (C:RE-ORDER))